home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / batchut / ebl405.zip / BATDOC.BAT < prev    next >
DOS Batch File  |  1990-03-05  |  19KB  |  506 lines
  1. bat * Loading HELP and DOCUMENTATION ..... (Non-IBM systems, read NOTE below)
  2.  
  3. *           Written 10/5/83 through 01/15/90
  4. *   (c) Copyright 1983 to 1990 by Seaware Corp. all rights reserved.
  5. *    This batch file REQUIRES EBL PLUS for proper execution!
  6.  
  7.          **** NOTE! NOTE! NOTE! NOTE! ****
  8.  RAM    |* <-----Change 'RAM' to 'BIOS' if PC isn't 100% IBM Compatible!
  9.  
  10.  if %G = .goto. then %G = | goto -%F
  11.  else %F =
  12.  else goto -line0
  13.  
  14.  
  15. -header * Routine prints general purpose header for help text
  16.     stack.purge            |*  remove any pre-typed keystrokes.
  17.     %n = %i $ 1 ( %i # - 2 ) & . & ( %i $ ( %i # - 1 ) 2 ) |* extract section # from page #
  18.     color( white on black )
  19.     cls
  20.     color( white on cyan  )
  21.     window( 1, 1, 79, 3, Combo)
  22.     begtype
  23.  \%H                     Page \%n
  24.  
  25. \07    Press:  PGDN for next page,   PGUP for prev page,  HOME for main menu.
  26. end
  27.     color( white on black)
  28.     colorchar ~ as color(yellow on black)
  29.     window( 1, 5, 79, 25, Combo)
  30.     return
  31.  
  32. -scroll * Routine accepts key for scrolling help text
  33.     %e = 0
  34.     inkey %k
  35.     if %k = KEY("Ctrl-C") then goto -opt0
  36.     if %k = KEY(Esc)  %i = 0      | goto -line0
  37.     if %k = KEY(Home) %i = 0      | goto -line0
  38.     if %k = KEY(Pgup) %i = %i - 1 | cls | %F = line%i | goto -%F
  39.     if %k = KEY(Pgdn) %i = %i + 1 | cls | %F = line%i | goto -%F
  40.     goto -scroll |* ignore any other key.
  41.  
  42. -line1405
  43. -line099
  44. -line0
  45.     %e = 0
  46.     color white on black
  47.     cls begtype
  48. \1F╔════════════════ BATDOC ═══════════════════╗\07       \17┌─────────────────────────┐\07
  49. \1F║     Menu driven HELP and DOCUMENTATION.   ║\07       \17│ User supported software │\07
  50. \1F╙───────────────────────────────────────────╜\07       \17│      by        │\07
  51.                              \17│              │\07
  52.     \4fGENERAL:\07                       \17│ Seaware Corp.        │\07
  53. \0e 1.        Introduction and how to use this Help.   \07   \17│ P.O. Box 1656        │\07
  54. \0e 2.        The user supported concept & ASP.         \07   \17│ Delray Beach, FL 33444    │\07
  55. \0e 3.        BAT-BBS information. On-line users forum.\07   \17│ 407/392-2046        │\07
  56. \0e 4.        What EBL is... an introduction!         \07   \17│             │\07
  57. \0e 5.        EBL PLUS: The inside story!          \07   \17│ Order your registered    │\07
  58.                              \17│ copy for $79 + $3 s/h   │\07
  59.      \4fThe EBL PLUS Language\07               \17│ from us directly or our │\07
  60. \0e 6.        Showing things on the display.         \07   \17│ order line 800/634-8188 │\07
  61. \0e 7.        Reading data from users.             \07   \17│ (MC/Visa welcome)    │\07
  62. \0e 8.        Controlling program flow             \07   \17│             │\07
  63. \0e 9.        Using the keyboard stack.             \07   \17│ Please copy and share    │\07
  64. \0e 10.     Sensing program's results.               \07   \17│ BAT.COM, BATDOC.BAT,    │\07
  65. \0e 11.     Assignment statements.             \07   \17│ and BATDEMO.BAT for    │\07
  66. \0e 12.     Debugging aids.                 \07   \17│ non-commercial uses    │\07
  67. \0e 13.     Extended functions.              \07   \17│ only.            │\07
  68. \0e 14.     Additional information.             \07   \17└─────────────────────────┘\07
  69.  
  70. \0e X.        eXit.                     \07
  71.  
  72.     Select the starting topic and press ─┘
  73. END
  74.  
  75. -entry0
  76.     %o =
  77.     if left(%F,3) = "opt" then field( ( ( %F $ 4 ) + 1 ) )
  78.     %A = Select( color( yellow ))
  79.     if %R > 15 then goto -entry0
  80.     if %A = Enter then %F = "opt" & %R | goto -%F
  81.     if %A = ESC   then goto -opt0
  82.     if Length(%A) > 1 then beep
  83.     goto -entry0
  84.  
  85. -opt15    ********** Display final EXIT window ***********
  86. -opt0    color yellow on black  |* Setup the window contents
  87.     locate 1 23
  88.     type " 0.      Exit.                                    "
  89.     color white on blue
  90.     window( 18, 13, 48, 20)
  91.     type "Ready to leave on-line help!"
  92.     color Cyan on blue
  93.     type "Make selection & press ─┘"
  94.     type
  95.     colorchar . as color( yellow on blue)
  96.     type ". Exit . . Demo . .Return."
  97.     colorchar
  98.     %A = "" | %F = ""
  99.         ** Now actually do the bouncing bar menu **
  100. -End1    type " Exit to DOS               " | If %A = Enter then exit
  101. -Endit    %A = select( color( yellow on blue), color( black on white ), Arrow)
  102.     if %A = Esc then goto -line0
  103.     goto -End%R
  104. -End2    type " Demonstrate other features" | If %A = Enter then stack "BATDEMO" |exit
  105.          else goto -endit
  106. -End3    type " Return to on-line help    " | If %A = Enter then goto -line0
  107.          else goto -endit
  108.  
  109. -line100 *************** Begin various chapters to show ****************
  110. -opt1    %h = INTRODUCTION | %i = 100 | call -header
  111.     begtype
  112.     This program will provide you with help information on the use of
  113. the EXTENDED BATCH LANGUAGE PLUS.  It is designed to allow for
  114. easy access and retrieval of information that would be harder to find
  115. by more conventional means.
  116.  
  117.     The information is broken up into multiple sections.  Each section
  118. may have several pages.  To access each page in order, just keep
  119. pressing the PGDN key.    At the top of your screen is the name of the
  120. section which you are in and the page number.
  121.  
  122. ~Note:~
  123.  
  124.     If you wish to directly enter another section now, press the ~HOME~
  125. key to return to the main menu, enter the proper ~section number~ and
  126. press the ~─┘~ key.
  127.  
  128. end
  129.      goto -scroll
  130. -line101 call -header | begtype
  131. While in any of these sections, there are just three keys needed:
  132.  
  133. PGDN -    This key will advance to the next page of any section. If
  134.     there are no more pages in the section, then it will advance
  135.     to the next section.
  136.  
  137. PGUP -    This key will back up to a previous page within a section.
  138.     If there are no more previous pages within a section, it
  139.     will backup to the previous section.
  140.  
  141. HOME or ESC - Either of these keys will return directly to the
  142.     main menu. From the menu, any section can be looked at
  143.     directly by entering the section number and pressing ─┘.
  144. end
  145.     goto -scroll
  146. -line199 %i = 102
  147. -line102 call -header | begtype
  148.   There are several sections where you will be given questions and answers.
  149. If you would like to peek and see answer without specifically answering it,
  150. you can press the space bar to reveal the answer letter by letter.
  151.  
  152.     One interesting facet you should know while using this on-line help
  153. and documentation is that you are using the EXTENDED BATCH LANGUAGE
  154. program to display and control these menus.
  155.  
  156.     Never before has a batch language been so powerful on the IBM
  157. personal computer as to be able to provide a facility like this.  In
  158. the following pages of description, we hope that you will see, as we
  159. did, that this program has extraordinary capability which does much
  160. more than just expand the capability of DOS.  In fact, it gives new
  161. power to your system by providing capabilities never before possible.
  162. end
  163.     goto -scroll
  164. -opt2
  165. -line103 %i = 200
  166. -line200 %H = "The User Supported Concept & ASP" | call -header | begtype
  167.  
  168.  ╓─                                     ─╖
  169.  ║      The license fee for Extended Batch Language is $79 + $3 s/h      ║
  170.  ║                                      ║
  171.  ║ You are encouraged to copy and share BAT.COM, BATDOC.BAT, and      ║
  172.  ║ BATDEMO.BAT for non-commercial purposes only. You must not modify      ║
  173.  ║ any of these files or make a profit from their distribution.       ║
  174.  ║                                      ║
  175.  ║ In appreciation of your support, you will be provided with many more   ║
  176.  ║ powerful extensions to the language (including source code), examples, ║
  177.  ║ and detailed documentation. All registered users can also access the   ║
  178.  ║ BAT-BBS, a hot-line for assistance, tips, and updates.          ║
  179.  ║                                      ║
  180.  ╙─     (c) Copyright 1982 through 1990 by Seaware Corp.         ─╜
  181.               All rights reserved.
  182.  
  183.   Seaware Corp.                            407/392-2046
  184.   Post Office Box 1656                           800/634-8188
  185.   Delray Beach, FL 33444
  186. end
  187.     goto -scroll
  188. -line201 call -header | begtype
  189. When you order EBL-PLUS, you will receive:
  190.  
  191.  ■ A detailed users guide.  This hardcopy manual has about 250 pages of
  192.                 descriptions, examples, useful utilities, and
  193.                 tips on this program's use.
  194.  
  195.  ■ The EBL-PLUS Diskette    Containing the latest program version,
  196.                 useful utilities, help files, and examples.
  197.                 You also receive our "Executive Menu Facility"
  198.                 to get started using EBL with zero effort.
  199.  
  200.  ■ 6 months of free support:
  201.      o    BAT-BBS         An on-line forum for user's ideas, tips,
  202.                 programs, and assistance.
  203.  
  204.      o    Technical Hotline   Phone us if you experience problems